﻿Imports XL.Common
Imports XL.Common.Utils
Imports XL.Win
Imports XL.Win.Utils
Imports Microsoft.Office.Interop.Excel

Namespace Utils


    Public Class TCPResponsor

        Public Delegate Function TRDoResponseByItemBunch(ByRef contentBunch As ItemBunch) As String
        Public Shared IsTesting As Boolean = True
        Public Shared XTRDoResponse As TRDoResponseByItemBunch


Public Shared Function DoResponse(ByVal content As String) As String                                 
                                                                                                     
                                                                                                     
            Try                                                                                      
                                                                                                     
                Dim contentBunch As New ItemBunch                                                    
                contentBunch.TitledContent = content                                                 
                                                                                                     
                Select Case contentBunch.Text                                                        
                '    Case TCPResponsor.SC_BizUtld0001
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0001
                '    Case TCPResponsor.SC_BizUtld0002
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0002
                '    Case TCPResponsor.SC_BizUtld0003
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0003
                '    Case TCPResponsor.SC_BizUtld0004
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0004
                '    Case TCPResponsor.SC_BizUtld0005
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0005
                '    Case TCPResponsor.SC_BizUtld0006
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0006
                '    Case TCPResponsor.SC_BizUtld0007
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0007
                '    Case TCPResponsor.SC_BizUtld0008
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0008
                '    Case TCPResponsor.SC_BizUtld0009
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0009
                '    Case TCPResponsor.SC_BizUtld0010
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0010
                '    Case TCPResponsor.SC_BizUtld0011
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0011
                '    Case TCPResponsor.SC_BizUtld0012
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0012
                '    Case TCPResponsor.SC_BizUtld0013
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0013
                '    Case TCPResponsor.SC_BizUtld0014
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0014
                '    Case TCPResponsor.SC_BizUtld0015
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0015
                '    Case TCPResponsor.SC_BizUtld0016
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0016
                '    Case TCPResponsor.SC_BizUtld0017
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0017
                '    Case TCPResponsor.SC_BizUtld0018
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0018
                '    Case TCPResponsor.SC_BizUtld0019
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0019
                '    Case TCPResponsor.SC_BizUtld0020
                '        TCPResponsor.XTRDoResponse = AddressOf TCPResponsor.BizUtld0020
                                                                                                     
                End Select                                                                           
                                                                                                     
                Dim respResult = XTRDoResponse.Invoke(contentBunch)                                  
                If respResult.Length > 0 Then                                                        
                    WinTK.OutputLog(WinDecl.LOG_TITLE_TCP_RESPONSE, respResult)                      
                End If                                                                               
                                                                                                     
                Return contentBunch.TitledContent                                                    
                                                                                                     
            Catch ex As Exception                                                                    
                                                                                                     
                WinTK.OutputLog("TCP Error", ex.Message)                                             
                WinTK.OutputLog("TCP StackTrace", ex.StackTrace)                                     
                Return String.Empty                                                                  
            End Try                                                                                  
                                                                                                     
            Return String.Empty                                                                      
                                                                                                     
                                                                                                     
        End Function                                                                                 


        'Public Const SC_BizUtld0001 As String = "SC_BizUtld0001"                                      
        'Public Const SC_BizUtld0001_PA_Utld As String = "SC_BizUtld0001_PA_Utld"
        'Public Const SC_BizUtld0001_PA_Utld As String = "SC_BizUtld0001_PA_Utld"
        'Public Const SC_BizUtld0001_PA_Utld As String = "SC_BizUtld0001_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0001 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0001_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0001_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0001_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0001( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0002 As String = "SC_BizUtld0002"                                      
        'Public Const SC_BizUtld0002_PA_Utld As String = "SC_BizUtld0002_PA_Utld"
        'Public Const SC_BizUtld0002_PA_Utld As String = "SC_BizUtld0002_PA_Utld"
        'Public Const SC_BizUtld0002_PA_Utld As String = "SC_BizUtld0002_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0002 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0002_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0002_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0002_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0002( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0003 As String = "SC_BizUtld0003"                                      
        'Public Const SC_BizUtld0003_PA_Utld As String = "SC_BizUtld0003_PA_Utld"
        'Public Const SC_BizUtld0003_PA_Utld As String = "SC_BizUtld0003_PA_Utld"
        'Public Const SC_BizUtld0003_PA_Utld As String = "SC_BizUtld0003_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0003 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0003_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0003_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0003_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0003( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0004 As String = "SC_BizUtld0004"                                      
        'Public Const SC_BizUtld0004_PA_Utld As String = "SC_BizUtld0004_PA_Utld"
        'Public Const SC_BizUtld0004_PA_Utld As String = "SC_BizUtld0004_PA_Utld"
        'Public Const SC_BizUtld0004_PA_Utld As String = "SC_BizUtld0004_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0004 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0004_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0004_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0004_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0004( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0005 As String = "SC_BizUtld0005"                                      
        'Public Const SC_BizUtld0005_PA_Utld As String = "SC_BizUtld0005_PA_Utld"
        'Public Const SC_BizUtld0005_PA_Utld As String = "SC_BizUtld0005_PA_Utld"
        'Public Const SC_BizUtld0005_PA_Utld As String = "SC_BizUtld0005_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0005 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0005_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0005_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0005_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0005( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0006 As String = "SC_BizUtld0006"                                      
        'Public Const SC_BizUtld0006_PA_Utld As String = "SC_BizUtld0006_PA_Utld"
        'Public Const SC_BizUtld0006_PA_Utld As String = "SC_BizUtld0006_PA_Utld"
        'Public Const SC_BizUtld0006_PA_Utld As String = "SC_BizUtld0006_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0006 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0006_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0006_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0006_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0006( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0007 As String = "SC_BizUtld0007"                                      
        'Public Const SC_BizUtld0007_PA_Utld As String = "SC_BizUtld0007_PA_Utld"
        'Public Const SC_BizUtld0007_PA_Utld As String = "SC_BizUtld0007_PA_Utld"
        'Public Const SC_BizUtld0007_PA_Utld As String = "SC_BizUtld0007_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0007 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0007_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0007_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0007_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0007( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0008 As String = "SC_BizUtld0008"                                      
        'Public Const SC_BizUtld0008_PA_Utld As String = "SC_BizUtld0008_PA_Utld"
        'Public Const SC_BizUtld0008_PA_Utld As String = "SC_BizUtld0008_PA_Utld"
        'Public Const SC_BizUtld0008_PA_Utld As String = "SC_BizUtld0008_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0008 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0008_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0008_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0008_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0008( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0009 As String = "SC_BizUtld0009"                                      
        'Public Const SC_BizUtld0009_PA_Utld As String = "SC_BizUtld0009_PA_Utld"
        'Public Const SC_BizUtld0009_PA_Utld As String = "SC_BizUtld0009_PA_Utld"
        'Public Const SC_BizUtld0009_PA_Utld As String = "SC_BizUtld0009_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0009 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0009_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0009_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0009_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0009( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0010 As String = "SC_BizUtld0010"                                      
        'Public Const SC_BizUtld0010_PA_Utld As String = "SC_BizUtld0010_PA_Utld"
        'Public Const SC_BizUtld0010_PA_Utld As String = "SC_BizUtld0010_PA_Utld"
        'Public Const SC_BizUtld0010_PA_Utld As String = "SC_BizUtld0010_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0010 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0010_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0010_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0010_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0010( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0011 As String = "SC_BizUtld0011"                                      
        'Public Const SC_BizUtld0011_PA_Utld As String = "SC_BizUtld0011_PA_Utld"
        'Public Const SC_BizUtld0011_PA_Utld As String = "SC_BizUtld0011_PA_Utld"
        'Public Const SC_BizUtld0011_PA_Utld As String = "SC_BizUtld0011_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0011 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0011_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0011_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0011_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0011( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0012 As String = "SC_BizUtld0012"                                      
        'Public Const SC_BizUtld0012_PA_Utld As String = "SC_BizUtld0012_PA_Utld"
        'Public Const SC_BizUtld0012_PA_Utld As String = "SC_BizUtld0012_PA_Utld"
        'Public Const SC_BizUtld0012_PA_Utld As String = "SC_BizUtld0012_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0012 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0012_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0012_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0012_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0012( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0013 As String = "SC_BizUtld0013"                                      
        'Public Const SC_BizUtld0013_PA_Utld As String = "SC_BizUtld0013_PA_Utld"
        'Public Const SC_BizUtld0013_PA_Utld As String = "SC_BizUtld0013_PA_Utld"
        'Public Const SC_BizUtld0013_PA_Utld As String = "SC_BizUtld0013_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0013 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0013_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0013_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0013_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0013( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0014 As String = "SC_BizUtld0014"                                      
        'Public Const SC_BizUtld0014_PA_Utld As String = "SC_BizUtld0014_PA_Utld"
        'Public Const SC_BizUtld0014_PA_Utld As String = "SC_BizUtld0014_PA_Utld"
        'Public Const SC_BizUtld0014_PA_Utld As String = "SC_BizUtld0014_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0014 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0014_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0014_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0014_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0014( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0015 As String = "SC_BizUtld0015"                                      
        'Public Const SC_BizUtld0015_PA_Utld As String = "SC_BizUtld0015_PA_Utld"
        'Public Const SC_BizUtld0015_PA_Utld As String = "SC_BizUtld0015_PA_Utld"
        'Public Const SC_BizUtld0015_PA_Utld As String = "SC_BizUtld0015_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0015 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0015_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0015_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0015_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0015( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0016 As String = "SC_BizUtld0016"                                      
        'Public Const SC_BizUtld0016_PA_Utld As String = "SC_BizUtld0016_PA_Utld"
        'Public Const SC_BizUtld0016_PA_Utld As String = "SC_BizUtld0016_PA_Utld"
        'Public Const SC_BizUtld0016_PA_Utld As String = "SC_BizUtld0016_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0016 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0016_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0016_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0016_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0016( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0017 As String = "SC_BizUtld0017"                                      
        'Public Const SC_BizUtld0017_PA_Utld As String = "SC_BizUtld0017_PA_Utld"
        'Public Const SC_BizUtld0017_PA_Utld As String = "SC_BizUtld0017_PA_Utld"
        'Public Const SC_BizUtld0017_PA_Utld As String = "SC_BizUtld0017_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0017 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0017_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0017_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0017_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0017( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0018 As String = "SC_BizUtld0018"                                      
        'Public Const SC_BizUtld0018_PA_Utld As String = "SC_BizUtld0018_PA_Utld"
        'Public Const SC_BizUtld0018_PA_Utld As String = "SC_BizUtld0018_PA_Utld"
        'Public Const SC_BizUtld0018_PA_Utld As String = "SC_BizUtld0018_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0018 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0018_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0018_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0018_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0018( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0019 As String = "SC_BizUtld0019"                                      
        'Public Const SC_BizUtld0019_PA_Utld As String = "SC_BizUtld0019_PA_Utld"
        'Public Const SC_BizUtld0019_PA_Utld As String = "SC_BizUtld0019_PA_Utld"
        'Public Const SC_BizUtld0019_PA_Utld As String = "SC_BizUtld0019_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0019 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0019_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0019_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0019_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0019( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


        'Public Const SC_BizUtld0020 As String = "SC_BizUtld0020"                                      
        'Public Const SC_BizUtld0020_PA_Utld As String = "SC_BizUtld0020_PA_Utld"
        'Public Const SC_BizUtld0020_PA_Utld As String = "SC_BizUtld0020_PA_Utld"
        'Public Const SC_BizUtld0020_PA_Utld As String = "SC_BizUtld0020_PA_Utld"
        '                                                                                                                            
        'Public Shared Function BizUtld0020 contentBunch As ItemBunch) As String                                   
        '                                                                                                                            
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0020_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0020_PA_Utld)      
        '    Dim PA_Utld = contentBunch.ValueString(TCPResponsor.SC_BizUtld0020_PA_Utld)      
        '                                                                                                      
        '    contentBunch.Value(ItemBunch.ITEM_TITLE_TCP_RESULT) = _                                           
        '         RExpXService.Facade.OpBizTCP.BizUtld0020( _                             
        '             PA_Utld, _                                                                              
        '             PA_Utld, _                                                                               
        '             CommTK.FBoolean(PA_Utld))                                                            
        '                                                                                                      
        '    Return contentBunch.ValueString(ItemBunch.ITEM_TITLE_TCP_RESULT)                                  
        '                                                                                                                            
        'End Function                                                                                                                


    End Class

End Namespace

